﻿Type=Activity
Version=3.15
@EndOfDesignText@
#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	
	Dim V_XM As String
	Dim V_XB As String
	Dim V_NL As String
	Dim V_CH As String
	Dim V_BHID As Int
	Dim V_RYRQ As Int
	Dim V_CYRQ As Int
	
End Sub

Sub Globals

	Dim lsvXM As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("FormXMList")

	InitLayOut
	
	Activity.Title = "功能列表-" & V_CH & " " &V_XM 
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub InitLayOut
	lsvXM.AddTwoLines2("基本信息","查询病人的基本信息",0)
	lsvXM.AddTwoLines2("诊断信息","查询病人的诊断信息",1)
	lsvXM.AddTwoLines2("医嘱信息","查询病人的医嘱信息",2)
	lsvXM.AddTwoLines2("病历文书信息","查询病人的病历文书信息",7)
	lsvXM.AddTwoLines2("护理记录信息","查询病人的护理记录信息",3)
	lsvXM.AddTwoLines2("检验信息","查询病人的检验信息",4)
	lsvXM.AddTwoLines2("检查信息","查询病人的检查信息",5)
	lsvXM.AddTwoLines2("费用信息","查询病人的费用信息",6)
	
	lsvXM.FastScrollEnabled = True
	
	'高级菜单
	'Activity.AddMenuItem("住院/门诊号","MenuItemAdv")
	'Activity.AddMenuItem("姓名","MenuItemAdv")
	'Activity.AddMenuItem("设置","MenuItemAdv")
	
	'Activity.AddMenuItem("登陆科室","MenuItemAdv")
End Sub

Sub lsvXM_ItemClick (Position As Int, Value As Object)
	If Value = 0 Then
		BHRYInfo.V_BHID = V_BHID
		BHRYInfo.V_CH = V_CH
		BHRYInfo.V_XM = V_XM
		StartActivity("BHRYInfo")  '基本信息
	Else If Value = 1 Then
		BHZDInfo.V_BHID = V_BHID
		BHZDInfo.V_CH = V_CH
		BHZDInfo.V_XM = V_XM
		StartActivity("BHZDInfo")  '诊断信息
	Else If Value = 2 Then
		BHYZInfo.V_BHID = V_BHID
		BHYZInfo.V_CH = V_CH
		BHYZInfo.V_XM = V_XM
		StartActivity("BHYZInfo")  '医嘱信息		
	Else If Value = 3 Then
		BHHLInfo.V_BHID = V_BHID
		BHHLInfo.V_CH = V_CH
		BHHLInfo.V_XM = V_XM
		BHHLInfo.V_RYRQ = V_RYRQ
		StartActivity("BHHLInfo")  '护理记录信息	
	Else If Value = 4 Then
		BHJYInfo.V_BHID = V_BHID
		BHJYInfo.V_CH = V_CH
		BHJYInfo.V_XM = V_XM
		StartActivity("BHJYInfo")  '检验信息			
	Else If Value = 5 Then
		BHJCInfo.V_BHID = V_BHID
		BHJCInfo.V_CH = V_CH
		BHJCInfo.V_XM = V_XM
		StartActivity("BHJCInfo")  '检查信息			
	Else If Value = 6 Then
		BHFYInfo.V_BHID = V_BHID
		BHFYInfo.V_CH = V_CH
		BHFYInfo.V_XM = V_XM
		BHFYInfo.V_RYRQ = V_RYRQ
		BHFYInfo.V_CYRQ = V_CYRQ
		StartActivity("BHFYInfo")  '费用信息		
	Else If Value = 7 Then
		BHBLInfo.V_BHID = V_BHID
		BHBLInfo.V_CH = V_CH
		BHBLInfo.V_XM = V_XM
		StartActivity("BHBLInfo")  '病历文书信息			
	End If
End Sub